home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / sendfaq.zprx < prev    next >
Text File  |  1996-05-04  |  675b  |  32 lines
  1. /* sendfaq.zprx 1.0 (4.5.96) by Ralph Seichter */
  2.  
  3. faq  = "ZP:Bretter/.archiv/ZP-Support-FAQ"
  4. subj = "ZP-Support-FAQ"
  5. rcv  = "/Z-NETZ/ALT/SUPPORT/ZODIACS_POINT,/FRAS/SUPPORT/ZODIACS_POINT"
  6.  
  7. options results
  8. parse arg zpoint
  9. if zpoint = "" then
  10.     zpoint = "ZPoint"
  11. address value zpoint
  12.  
  13. whichlevel
  14. if result ~= "BOARD" then
  15.     exit
  16. messageinfo subject
  17. if result ~= subj then
  18.     exit
  19.  
  20. messageinfo id
  21. mid = result
  22. tmp = "T:sendfaq.zprx.tmp"
  23. address command "copy "faq" "tmp" quiet"
  24.  
  25. writemessage tmp" "rcv" "subj" references="mid" replaces="mid" save"
  26. if result = "" then
  27.     requestnotify "Kann Nachricht nicht versenden!"
  28. else do
  29.     delete later
  30.     requestnotify "Nachricht versandt."
  31. end
  32.